home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / pop menu demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  52 lines
  1. 95 if fl=-1 then 200
  2. 100 a=peek(49152)+peek(49153)*256+peek(49154)
  3. 110 if a=4108 then 200
  4. 120 fl=-1 :load"pick.mlp.c000",8,1
  5. 200 :
  6. 300 h1$=chr$(192)+chr$(192):h2$=h1$+h1$
  7. 310 v$=chr$(221)
  8. 320 ul$=chr$(176) : rem upper left corner (c= & a)
  9. 330 ur$=chr$(174) : rem upper right corner (c= & s)
  10. 340 ll$=chr$(173) : rem lower left corner (c= & z)
  11. 350 lr$=chr$(189) : rem lower right corner (c= & x)
  12. 1000 rem window using program
  13. 1010 print"[147]";
  14. 1030 printul$h2$chr$(178)h2$h2$h2$h1$chr$(178)h2$h2$h2$h2$h1$ur$;
  15. 1040 print v$"exit"v$"              "v$"background        "v$;
  16. 1050 printchr$(171)h2$chr$(219)h2$h2$h2$h1$chr$(177)h2$h2$h2$h2$h1$lr$;
  17. 1060 printv$"time"v$
  18. 1070 printv$"on  "v$
  19. 1080 print chr$(171)h2$chr$(179)
  20. 1090 printv$"opts"v$
  21. 1100 printll$h2$lr$
  22. 1200 gosub 60000
  23. 1210 geta$:
  24. 1212 print"";b:if z=0 then b=b+1
  25. 1214 if a$<>chr$(13) then 1210
  26. 1220 if peek(2) = ex then 20000
  27. 1230 if peek(2) = bk then 21000
  28. 1250 if peek(2) = tm then 23000
  29. 1900 goto 1210
  30. 20000 a$="no yes"
  31. 20010 sys 49158,0,0,5,4,1,a$
  32. 20020 if peek(599) =2 then sys 49164:stop
  33. 20030 goto 1210
  34. 21000 a$="black white red   cyan  purplegreen blue  yellow"
  35. 21010 sys 49158,21,0,8,10,0,a$
  36. 21020 poke 53281,peek(599)-1
  37. 21030 goto 1210
  38. 23000 if z=0 then 23100
  39. 23010 z=0
  40. 23020 print"time[157][157][157][157]on  "
  41. 23030 goto1210
  42. 23100 rem
  43. 23110 z=1
  44. 23120 print"time[157][157][157][157]off "
  45. 23130 goto1210
  46. 60000 sys 49152
  47. 60010 sys 49155,1,1,4,1:ex=peek(782)
  48. 60020 sys 49155,1,3,4,2:tm=peek(782)
  49. 60030 sys 49155,1,6,4,1:op=peek(782)
  50. 60040 sys 49155,21,1,10,1:bk=peek(782)
  51. 60050 return
  52.